* FILE NAME : CMSSAV.PRG
*
sele 5
SET EXCLU OFF
USE &DR&F5 index &dr&f5
IF FIL_LOCK()
   APPEN BLANK
ENDIF
IF REC_LOCK(0)
   repl pat_filcod with kodepat,DAT_CRFILE WITH DATFIL,ENTRY_DAT WITH ENTDAT
   repl pat_instyp with instyp,pat_insnam with insnam,pat_insval with insval
ENDIF
UNLOCK
